home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 355 / source / ifsdemo / gemconst.def < prev    next >
Encoding:
Modula Definition  |  1990-02-02  |  2.6 KB  |  115 lines
  1. DEFINITION MODULE GEMConstants;
  2.  
  3. (* Event Manager Constants *)
  4.  
  5. CONST MUKEYBD  = 0001H;  (* Multi Flags *)
  6.       MUBUTTON = 0002H;
  7.       MUM1     = 0004H;
  8.       MUM2     = 0008H;
  9.       MUMESAG  = 0010H;
  10.       MUTIMER  = 0020H;
  11.  
  12.       KRSHIFT = 0001H;  (* Keyboard States *)
  13.       KLSHIFT = 0002H;
  14.       KCTRL   = 0004H;
  15.       KALT    = 0008H;
  16.  
  17.       MNSELECTED = 10;  (* Message Values *)
  18.       WMREDRAW   = 20;
  19.       WMTOPPED   = 21;
  20.       WMCLOSED   = 22;
  21.       WMFULLED   = 23;
  22.       WMARROWED  = 24;
  23.       WMHSLID    = 25;
  24.       WMVSLID    = 26;
  25.       WMSIZED    = 27;
  26.       WMMOVED    = 28;
  27.       WMNEWTOP   = 29;
  28.       ACOPEN     = 40;
  29.       ACCLOSE    = 41;
  30.  
  31. (* Form Manager Constants *)
  32.  
  33.       FMDSTART  = 0;  (* Form Flags *)
  34.       FMDGROW   = 1;
  35.       FMDSHRINK = 2;
  36.       FMDFINISH = 3;
  37.  
  38. (* Window Manager Constants *)
  39.  
  40.       NAME    = 0001H;  (* Window Attributes *)
  41.       CLOSER  = 0002H;
  42.       FULLER  = 0004H;
  43.       MOVER   = 0008H;
  44.       INFO    = 0010H;
  45.       SIZER   = 0020H;
  46.       UPARROW = 0040H;
  47.       DNARROW = 0080H;
  48.       VSLIDE  = 0100H;
  49.       LFARROW = 0200H;
  50.       RTARROW = 0400H;
  51.       HSLIDE  = 0800H;
  52.  
  53.       WCBORDER = 0;  (* WindCreate Flags *)
  54.       WCWORK   = 1;
  55.  
  56.       WFKIND      = 1;  (* WindGet Flags *)
  57.       WFNAME      = 2;
  58.       WFINFO      = 3;
  59.       WFWORKXYWH  = 4;
  60.       WFCURRXYWH  = 5;
  61.       WFPREVXYWH  = 6;
  62.       WFFULLXYWH  = 7;
  63.       WFHSLIDE    = 8;
  64.       WFVSLIDE    = 9;
  65.       WFTOP       = 10;
  66.       WFFIRSTXYWH = 11;
  67.       WFNEXTXYWH  = 12;
  68.       WFRESVD     = 13;
  69.       WFNEWDESK   = 14;
  70.       WFHSLSIZE   = 15;
  71.       WFVSLSIZE   = 16;
  72.       WFSCREEN    = 17;
  73.  
  74.       ENDUPDATE = 0;  (* Update Flags *)
  75.       BEGUPDATE = 1;
  76.       ENDMCTRL  = 2;
  77.       BEGMCTRL  = 3;
  78.  
  79. (* Graphics Manager Definitions *)
  80.  
  81.       ARROW      = 0;  (* Mouse Forms *)
  82.       TEXTCRSR   = 1;
  83.       BUSYBEE    = 2;
  84.       POINTHAND  = 3;
  85.       FLATHAND   = 4;
  86.       THINCROSS  = 5;
  87.       THICKCROSS = 6;
  88.       OUTLNCROSS = 7;
  89.       USERDEF    = 255;
  90.       MOFF       = 256;
  91.       MON        = 257;
  92.  
  93. (* Object Constants *)
  94.  
  95.       NONE       = 0000H;  (* Object Flags *)
  96.       SELECTABLE = 0001H;
  97.       DEFAULT    = 0002H;
  98.       EXITOBJ    = 0004H;
  99.       EDITABLE   = 0008H;
  100.       RBUTTON    = 0010H;
  101.       LASTOB     = 0020H;
  102.       TOUCHEXIT  = 0040H;
  103.       HIDETREE   = 0080H;
  104.       INDIRECT   = 0100H;
  105.  
  106.       NORMAL   = 0000H;  (* Object States *)
  107.       SELECTED = 0001H;
  108.       CROSSED  = 0002H;
  109.       CHECKED  = 0004H;
  110.       DISABLED = 0008H;
  111.       OUTLINED = 0010H;
  112.       SHADOWED = 0020H;
  113.  
  114. END GEMConstants.
  115.